﻿Public Class XLDanToc
    Private kn As New KNDanToc
    Public Function BUS_LayDSDT() As DataTable
        Return kn.DSDT
    End Function
    Public Function BUS_SaveDT(ByVal data As DataTable) As Boolean
        Return kn.SaveDT(data)
    End Function
    Public Function BUS_ArrayDT() As ArrayList
        Dim ds As New ArrayList
        Dim d As New DTO_DanToc
        d.TenDanToc = "[Chọn Dân Tộc]"
        ds.Add(d)
        Dim data As New DataTable
        data = kn.DSDT()
        For Each dr As DataRow In data.Rows
            d = New DTO_DanToc
            d.TenDanToc = dr("TenDT")
            ds.Add(d)
        Next
        Return ds
    End Function
End Class
